home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 52
/
Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso
/
Aminet
/
game
/
demo
/
ToTDemo0.45_R5.lha
/
talesdemo
/
rexx
/
Quit_TCP_IP_Miami.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
2000-05-11
|
1KB
|
31 lines
/******************************************************************************************************/
/* Online-Script mit Arexx */
/* © by Martin Wolf / Eternity Hard & Software */
/* First Bit set: 03.05.1998 */
/* Last Bit set : */
/* */
/* */
/* Version 1.01 : Env-Var wird jetzt abgefragt */
/* Version 1.02 : Env-Var -1 verursacht nun keinen Fehler mehr */
/* */
/******************************************************************************************************/
OPTIONS RESULTS
ADDRESS COMMAND
IF (OPEN('EnvVar','ToT:Data/TCPIPDeja','R')) THEN
DO
IF (0=(READCH('EnvVar',2))) THEN
DO UNTIL SHOW('P','MIAMI.1') /* Auf Miami warten */
SIGNAL OFF ERROR
'WaitForPort MIAMI.1'
SIGNAL ON ERROR
miamiport = MIAMI.1 /* ist auf jeden Fall der aktive Port */
ADDRESS (miamiport)
QUIT
END
END
EXIT